let foooooooo = function
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo

let foooooooo = function
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo

let foo =
  fooooooooo foooooooo ~foooooooo:(function
      | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
      | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo)

let foooooooo =
  if fooooooooooo then
    function
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
  else
    function
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
    | fooooooooooooooooooooooo -> foooooooooooooooooooooooooo
